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The objective of these 2 classes is ‘to show you how to write a simple 
computer program in BASIC. 


By the end of the 2 classes you will have written several small programs. 
Hopefully, in doing so, you will realize that a computer is a useful 
tool for performing routine, repetitive tasks. 


The computer you will be using is a small computer designed for teaching 
purposes. The version of the BASIC language is MONECS BASIC. 


As it is designed to be used in the student environment you will be 

using mark-sense cards and printed output. Many computers have different 
input facilities - e.g. a keyboard with a visual display - which enables 
you to actually sit at the machine and enter your program directly via the 
keyboard. 


Programming Concepts 


A computer must be given a set of instructions before it can do 
anything. 


A PROGRAM is the name we give to a set of instructions that perform 
any given operation. 


The most important part of any program is the output that it produces. 


In order to produce output, the machine must be given an instruction 
to do so. 


If I want a computer to print the word HELLO then I must give it an 
instruction that says 
PRINT "HELLO" 


If I want the computer to say 
HELLO KATE 
then I would give it an instruction 
PRINT "HELLO KATE" 


If my name was FRED I would not be very impressed by a machine that 
printed 

HELLO KATE 
for me. 


It would be a good idea to have a program that said 


HELLO KATE to Kate 
or 

HELLO RALPH to Ralph 
or 

HELLO NOEL to Noel. 


So, we will write a program that prints HELLO with your own name. 
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A machine doesn't know what your name is unless you tell it - so we will 
need to tell it your name - that is we will give the machine some input. 
The input will be a card which has your name on it. 


Program 
ee *JOB,1234 ,BASIC 
KATE INPUT CARD 10 READ N$ 


| 

] 

| 20 PRINT "HELLO", N$ 
30 DATA "KATE" 

‘a —— Lo END 


iipeaaniascnmmianes ¥ 
KATE | COMPUTER STORAGE END JOB 
! nS 





HELLO KATE QUTPUT 


Things to note: 


1. Each instruction is on a separate card. 
2. Each instruction has a line number - these must be in ascending order. 


3. You need 2 special cards to make your program work on our computer:- 


*JOB,1234,BASIC is the first card which tells the 
computer that the instructions to 
follow are in the BASIC language. 


*END JOB is the last card which tells the 
computer that it has now finished with 
your program. 


4, Cards must be marked carefully or the machine cannot read them. 


5. In the program you are about to write you have used one input variable - 
N$ and one constant - "HELLO". 


Constants must be enclosed in inverted commas. 


Variables can be numeric or not numeric. Our variable - N$ - is 
not numeric and the $ after the N tells the machine this. 
Numeric variables do not have a $ after the symbol. 
e.g. variables called 
A or Bor Cor D 
would be numeric variables whilst 
AS or B$ or C$ or D$ 


would be non-numeric variables. 


EXERCISE 1 
Mark the 6 cards necessary for the program to print HELLO with your name. 


Get an instructor to check your cards and show you how to use the computer 
in BAhO6 to run your program. 


Do not be despondent if the program does not work at the first run as 
programs hardly ever do. 


If you have made an error, the machine will indicate where the error is. 
You should fix it and then re-run your program. 


PROGRAM ILLUSTRATION 1 


Here is a program that calculates weekly pay for employees. The output we 
want is shown below. 


Our input card will contain name, hours worked and wage rate. 


The Program 


*JOB 1234 ,BASIC | 

10 PRINT "NAME", "PAY AMOUNT" 
20 READ N$, H, W 

30 LET P =H * W 

4O PRINT N$, P 

50 DATA "KATE", 4o, 100 

60 END 

*END JOB 


Name, Hours, Wage 





Things to note: 


Statement 20 reads the value of name, hours worked and wage 


Statement 30 says: 
Statement 0 prints a heading line so we know that is being 


EXERCISE 2 


Write a program, based on the above to pay yourself whatever you think 
you deserve. 
The biggest amount the computer can print is 7 digits. 


rate into the computer. 


printed out. 


PROGRAM ILLUSTRATION 2 


In program illustration 1 we wrote a program that paid 1 person. 
now modify that program to pay any number of people. 


*#JOB,1234, BASIC 


05 
10 
15 
20 
ho 
45 
50 
70 
80 
90 
100 
110 
120 
130 
140 
150 


PRINT "NAME", "PAY AMOUNT" 
READ N$, H, W 

IF NS = "XX" THEN 150 

LET P= H * W 

PRINT N$, P 

GO TO 10 

DATA - (add your own data here) 
DATA . 


DATA "Xx", 0, 0 
END 


*END JOB 


We need a new storage area called P (Pay) 
and let it be equal to hours worked X wage rate. 
We use * symbol for multiplication. 


Things to note: 


Statement 5 - we print the heading first before we read any 
data. 
Statement 15 - we must have a way of getting to the end of the 


program so we put in a dummy record to indicate 


the end of the data. 


Statement 45 - when we reach this statement we return to statement 
10. Each time we return to statement 10 a new data 
card will be read and new values for N$, H and W 


become available. 


Statement 140 - is the dummy record which indicates the end of 


the data. 


EXERCISE 3 


Modify your exercise 2 so that you can now pay yourself plus 7 other 
relatives, employers etc., whatever you feel they deserve. 


PROGRAM ILLUSTRATION 3 





We want to produce a listing of salesman's commissions. 


The salesman receives 10% of total sales as commission plus a bonus 
calculated as follows: 


Sales Bonus 
Over 2,000 5% of total sales 
Over 1,000 2% of total sales 
1,000 or less no bonus 


The output is to show, for each salesman, 


Salesman name, Total Sales, Commission, Bonus, Total Due. 


Also we want a total line which shows 


All Sales, All Commissions, All Bonuses, All Total Dues. 


The input card contains 


Salesman name and total sales for that Salesman. 


friends, 


Program - 
- *J0B,1234 ,BASIC 


"BONUS" ,"" TOTAL” 


INPUT 06 LET W=0 
oe 07 LET X=0 
08 LET Y =0 
09 LET Z = 0 


15 IF N$ = "xx" THEN 160 


f 

10 READ N$, S 
Soma 20 IF S > 2000 THEN 50 
{ 








STORAGE 30 IF S > 1000 THEN 70 
1 | 4O LET B = 0 
| 45 GO TO 80 
50 LET B = .05 *S 
60 GO T0 80 


70 LET B= .02 #5 
80 LETC = .1 *§ 
90 LETT=C+B 
100 PRINT N$, S, C, B, T 
110 LETW=W+ts 
120 LET X=X+C 
130 LET Y=Y+B 
who LET Z=2Z2+T 
150 GO TO 10 
160 PRINT "TOTAL", W, X, ¥, Z 
170 DATA “JOE", 2500 
180 DATA "FRED", 500 
190 DATA "LIZ", 3000 
200 DATA "NOEL", 2000 
210 DATA "DIANA", 2500 
220 DATA "KATE", 1500 
230 DATA "RALPH", 2800 
240 DATA "NIGEL", 400 
250 DATA "Xx", 0 
260 END 
* END JOB 


NAME SALES COMMISSION BONUS ‘TOTAL 
(NS) (8) (c) (B) (T) 
TOTALS (W) (X) (Y) (Z) 






Oh PRINT "NAME", "SALES", "COMMISSION", 


EXERCISE 4 


Write a program that produces a listing of discounts offered to customers. 


The amount of discount is based 


as follows: 


The output should be as follows: 


Purchases 


> $ 500 
> $1000 
> $2000 


Customer Name 


FRED 
ToM 


Totals 


on the dollar amount of each purchase 


Discount Rate 


1% 


Purchase Amount Discount Amount Owing 


> <Sco Jer ¢s 
> $2000 we (oO. 


$2500 6 5 los, 


The input card contains: 


Customer name and Purchase amount. 


(Note: the discount is based on each purchase - not on accumulated 


purchases. 


If Fred has 2 purchases of 520 each then he receives 


1% on each purchase - the idea of the discount is to encourage 
fewer sales of larger amounts thus reducing overheads). 


EXERCISE 5 


Write a program that reads payroll data and produces a report showing the 
total of pay for each department. The cards contain: 


Department number. 


Employee number. 


